perm filename LOSS.LAP[MAC,LSP]2 blob
sn#566676 filedate 1981-02-19 generic text, type T, neo UTF8
'(THIS IS THE LAP FOR ((DSK (MAC LSP)) LOSS /1))
'(COMPILED BY LISP COMPILER /924 COMAUX /20 PHAS1 /67 MAKLAP /68 INITIA /102)
;COMPILED ON FEBRUARY 19, 1981, AT 1:10 PM
(LAP TEST SUBR)
(ARGS TEST (() . 1))
(PUSH P 1)
(CAIE 1 'WHICH-OPERATIONS)
(JRST 0 G0002)
(CALL 0 'BAZOLA1)
(JRST 0 G0001)
G0002
(CAIE 1 'TYI)
(JRST 0 G0004)
(CALL 0 'BAZOLA2)
(JRST 0 G0001)
G0004
(CAIE 1 'ZTESCH)
(JRST 0 G0006)
(CALL 0 'BAZOLA3)
(JRST 0 G0001)
G0006
(MOVEI 1 '() )
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
()
(COMMENT **** (BAZOLA3 BAZOLA2 BAZOLA1)
have been used but remain undefined in this file)